unit UfrmProviderEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UfrmStandarEdit, RzTabs, ExtCtrls, RzPanel, RzDlgBtn, DB, ADODB,
  RzCommon;

type
  TfrmProviderEdit = class(TfrmStandarEdit)
    qryProvider: TADOQuery;
  private
    { Private declarations }
  public
    function Edit(const Params:Variant):Boolean;override;
    function Enter:Boolean;override;
  end;

var
  frmProviderEdit: TfrmProviderEdit;

implementation

uses UdataMoudule;

{$R *.dfm}

{ TfrmProviderEdit }

function TfrmProviderEdit.Edit(const Params: Variant): Boolean;
begin
  qryProvider.Open;
  qryProvider.Locate('clientid',Params,[]);
  Result:=  ShowModal = mrOk;
end;

function TfrmProviderEdit.Enter: Boolean;
begin
  qryProvider.Open;
  qryProvider.Insert;
  Result:=  ShowModal = mrOk;
end;

end.
